use Test::More;
my $name = 'abc-123';
note $name;
$name =~ tr/-/_/;
note $name;
